perm filename EKL.INI[W82,JMC] blob sn#635465 filedate 1982-01-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun lname fexpr (x)
C00003 ENDMK
CāŠ—;
(defun lname fexpr (x)
       ((lambda (careful)
		(mapc (function
		       (lambda (y)
			       (apply 'linename
				      (cond ((assq y g:linenames)
					     (list y y -1))
					    (t (list y -1))))))
		      x))
	nil)
       (ecommentl (cons 'lname x)))